(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     11503,        298]
NotebookOptionsPosition[     10772,        278]
NotebookOutlinePosition[     11127,        294]
CellTagsIndexPosition[     11084,        291]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics", "[", 
   RowBox[{"{", 
    RowBox[{"(*", "RECT", "*)"}], 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"100", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"100", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"100", ",", "100"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"100", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "\:6bd4\:7279line", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Array", "[", 
      RowBox[{"x", ",", "8", ",", "0"}], "]"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "7", "]"}], "=", "0"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "6", "]"}], "=", "1"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "5", "]"}], "=", "1"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "4", "]"}], "=", "0"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "3", "]"}], "=", "0"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "2", "]"}], "=", "0"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "1", "]"}], "=", "0"}], ",", 
     RowBox[{
      RowBox[{"x", "[", "0", "]"}], "=", "1"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"8", "-", "i", "-", "1"}], "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{"(", 
                  RowBox[{"i", "+", "1"}], ")"}]}], ",", "30"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{"(", 
                  RowBox[{"i", "+", "1"}], ")"}]}], ",", "70"}], "}"}]}], 
             "}"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{"(", 
                  RowBox[{"i", "+", "1"}], ")"}]}], ",", "40"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{"(", 
                  RowBox[{"i", "+", "1"}], ")"}]}], ",", "60"}], "}"}]}], 
             "}"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "7"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "L", "*)"}], 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"10", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "20"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"10", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"85", ",", "10"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", "F", "*)"}], 
     RowBox[{"(*", "  ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"20", ",", "10"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20"}], "}"}]}], "}"}], "]"}]}], "}"}], ","}],
       "  ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Clear", "[", "bytedata", "]"}], ",", 
     RowBox[{"bytedata", ":=", "0"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "[", "i", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{"bytedata", "+=", 
          RowBox[{"+", 
           RowBox[{"2", "^", "i"}]}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "7"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"ToString", "[", "bytedata", "]"}], ",", "17"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"ToString", "[", "bytedata", "]"}], ",", "17"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "105"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"FromCharacterCode", "[", "bytedata", "]"}], ",", "17"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"5", "+", "30"}], ",", 
         RowBox[{"-", "5"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "}"}], "]"}], "\n", "     ", "\n"}]], "Input",
 CellChangeTimes->{{3.8202207699250097`*^9, 3.8202207699250097`*^9}, {
   3.8202208003582706`*^9, 3.820220898007135*^9}, {3.820220929093589*^9, 
   3.8202209495731525`*^9}, {3.820220986136862*^9, 3.8202211983994026`*^9}, {
   3.8202212954390645`*^9, 3.8202213203706756`*^9}, {3.8202213849179883`*^9, 
   3.820221453207281*^9}, {3.8202217113576603`*^9, 3.8202218006012897`*^9}, {
   3.8202218454408913`*^9, 3.820221845895675*^9}, {3.8202221558663597`*^9, 
   3.8202222842336836`*^9}, {3.8202227007853203`*^9, 
   3.8202227019681573`*^9}, {3.82022291821553*^9, 3.820222924586438*^9}, {
   3.820223015839779*^9, 3.8202230162895765`*^9}, {3.820223158664674*^9, 
   3.8202232263921604`*^9}, {3.820246778162421*^9, 3.8202468002055054`*^9}, {
   3.8202468334964495`*^9, 3.8202468695082006`*^9}, {3.820246973952445*^9, 
   3.8202470367749524`*^9}, {3.82024707567373*^9, 3.820247093768493*^9}, {
   3.8202471282518444`*^9, 3.8202471477437863`*^9}, {3.8202472928929386`*^9, 
   3.8202473899781303`*^9}, {3.8202474260698795`*^9, 3.820247492444539*^9}, {
   3.8202477244010873`*^9, 3.8202477309213867`*^9}, {3.8202477866563654`*^9, 
   3.820247797554098*^9}, {3.8202478350468674`*^9, 3.8202478402015533`*^9}, {
   3.820247906987322*^9, 3.820247949954403*^9}, {3.820248028916184*^9, 
   3.8202480542892065`*^9}, {3.8202480899612265`*^9, 3.820248178715784*^9}, {
   3.8202482531245556`*^9, 3.820248292410215*^9}, {3.820248324626115*^9, 
   3.8202483676956096`*^9}, {3.820248908435291*^9, 3.8202489167337704`*^9}, {
   3.8202489530044966`*^9, 3.8202489568951645`*^9}, {3.820249169762742*^9, 
   3.82024918878205*^9}, {3.8202741053207216`*^9, 3.820274105800722*^9}, 
   3.820274141752794*^9, {3.8202741727727346`*^9, 3.8202742350211477`*^9}, {
   3.8202745606836643`*^9, 3.8202745729649053`*^9}, {3.8202747506015377`*^9, 
   3.820274827451332*^9}, {3.8202749109180503`*^9, 3.8202749288116302`*^9}, {
   3.820275503101061*^9, 3.8202755035615683`*^9}, {3.820275554218814*^9, 
   3.8202755570328197`*^9}, {3.8202757901621294`*^9, 
   3.8202758304255285`*^9}, {3.8202815991600943`*^9, 3.8202816249205503`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"244cedeb-9469-45b0-bd67-e76b385d0350"],

Cell[BoxData[
 GraphicsBox[{
   {Thickness[Large], LineBox[{{0, 0}, {100, 0}}]}, 
   {Thickness[Large], LineBox[{{100, 0}, {100, 100}}]}, 
   {Thickness[Large], LineBox[{{100, 100}, {0, 100}}]}, 
   {Thickness[Large], LineBox[{{0, 100}, {0, 0}}]}, {$CellContext`x[
    0], $CellContext`x[1], $CellContext`x[2], $CellContext`x[
    3], $CellContext`x[4], $CellContext`x[5], $CellContext`x[
    6], $CellContext`x[7]}, 0, 1, 1, 0, 0, 0, 0, 1, {
    {Thickness[Large], LineBox[{{10, 40}, {10, 60}}]}, 
    {Thickness[Large], LineBox[{{20, 30}, {20, 70}}]}, 
    {Thickness[Large], LineBox[{{30, 30}, {30, 70}}]}, 
    {Thickness[Large], LineBox[{{40, 40}, {40, 60}}]}, 
    {Thickness[Large], LineBox[{{50, 40}, {50, 60}}]}, 
    {Thickness[Large], LineBox[{{60, 40}, {60, 60}}]}, 
    {Thickness[Large], LineBox[{{70, 40}, {70, 60}}]}, 
    {Thickness[Large], LineBox[{{80, 30}, {80, 70}}]}}, 
   {Thickness[Large], LineBox[{{10, 10}, {10, 20}}]}, 
   {Thickness[Large], LineBox[{{10, 10}, {85, 10}}]}, {1, 33, 97}, InsetBox[
    StyleBox["\<\"97\"\>",
     StripOnInput->False,
     FontSize->17], {5, -5}], InsetBox[
    StyleBox["\<\"97\"\>",
     StripOnInput->False,
     FontSize->17], {5, 105}], InsetBox[
    StyleBox["\<\"a\"\>",
     StripOnInput->False,
     FontSize->17], {35, -5}]}]], "Output",
 CellChangeTimes->{3.820281691503098*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"d3e26d31-a36a-44af-9ee2-d5ab90d78d45"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.820276999526328*^9, {3.820281660168866*^9, 
   3.820281660720392*^9}},ExpressionUUID->"b3bdb014-e7dc-49e5-bb5a-\
d2324df2e449"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.820281663727352*^9, 
  3.8202816643746214`*^9}},ExpressionUUID->"5b522278-3a4b-40da-9d00-\
cc195825a0f3"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8202769761626587`*^9},ExpressionUUID->"39ccd212-51a8-4017-9b11-\
2a6173a73ecb"]
},
WindowSize->{1904, 997},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 8257, 206, 421, "Input",ExpressionUUID->"244cedeb-9469-45b0-bd67-e76b385d0350"],
Cell[8840, 230, 1426, 29, 448, "Output",ExpressionUUID->"d3e26d31-a36a-44af-9ee2-d5ab90d78d45"]
}, Open  ]],
Cell[10281, 262, 178, 4, 28, "Input",ExpressionUUID->"b3bdb014-e7dc-49e5-bb5a-d2324df2e449"],
Cell[10462, 268, 154, 3, 28, InheritFromParent,ExpressionUUID->"5b522278-3a4b-40da-9d00-cc195825a0f3"],
Cell[10619, 273, 149, 3, 48, "Input",ExpressionUUID->"39ccd212-51a8-4017-9b11-2a6173a73ecb"]
}
]
*)

